-- background: 2795 from stack: in
-- bmap block id: 3087
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  --push recent card
end openBackground

on openCard
  --put number of this card into field "cnum"
  set scroll of field description to 0
end openCard

on newCard
  send "tabKey"
end newCard

on arrowKey whichWay
  if whichWay is "left" then
    visual effect wipe right
    go to previous card
  else if whichWay is "right" then
    visual effect wipe left
    go to next card
  end if
end arrowKey




-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=44 top=38 right=57 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Type


-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=232 top=306 right=331 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=127 top=38 right=57 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 13 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=18 top=76 right=304 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Description


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=263 top=306 right=331 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=31 right=61 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=404 top=308 right=326 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index Card
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to card "Index Card"
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=19 top=309 right=327 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install to Stack
----- HyperTalk script -----
on mouseUp
  get FileName("STAK")
  if it is not empty then copyCommands it
end mouseUp

on copyCommands toStack
  put the value of word 2 of long name of this stack into fromStack
  answer "Are you sure you want to do this?" with "Cancel" or "OK"
  if it is "OK" then
    set cursor to 4
    put "ModResCopy fromStack, toStack, " into command
    get field type
    put quote & it & quote & ", " after command
    get short name of this card
    put quote & it & quote after command
    --ModResCopy fromStack,toStack,"XFCN","NewMenu"
    --put command
    do command
    answer "Installation complete!" with "OK"
  end if
end copyCommands